home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 9 / Tiger_Disk_009_19xx_Tiger-Crew-Disk_de_Side_A.d64 / [ -- anfang -- ] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  993b  |  35 lines
  1. 5 s=54272:fort=0to6 :readx::pokes+t,x:next:pokes+24,15:pokes+4,17 :pokes+4,64
  2. 6 data,16,,4,,11,11,-1,-1
  3. 10 poke53280,0:poke53281,0:fori=0to2:
  4. 11 print"[147]                   [185][185] "
  5. 12 printtab(18)"[182][176][174][181]"
  6. 13 printtab(18)"[182][173][189][181]"
  7. 14 printtab(18)" [184][184] ":nexti
  8. 15 fori=0to1:print"[147]               [159][176][195][195][195][195][195][195][195][195][174]"
  9. 16 printtab(15)"[194][205][205][205][205][206][206][206][206][194]"
  10. 17 printtab(15)"[194][205][176][195][195][195][195][174][146][206][194]"
  11. 18 printtab(15)"[194][205][194][146] [177][177] [194][146][206][194]"
  12. 19 printtab(15)"[194][205][194][146][179]  [171][194][146][206][194]"
  13. 20 printtab(15)"[194][206][194][146][179]  [171][194][146][205][194]"
  14. 21 printtab(15)"[194][206][194][146] [178][178] [194][146][205][194]"
  15. 22 printtab(15)"[194][206][173][195][195][195][195][189][146][205][194]"
  16. 23 printtab(15)"[194][206][206][206][206][205][205][205][205][194]"
  17. 24 printtab(15)"[173][195][195][195][195][195][195][195][195][189]":nexti
  18. 25 fori=0to5:print"[147][156]            [189][184][184][184][184][184][184][184][184][184][184][184][184][184][184][173]"
  19. 26 printtab(12)"[181][166][166][166][166][166][166][166][166][166][166][166][166][166][166][182]"
  20. 27 printtab(12)"[181][166][176][195][195][195][195][195][195][195][195][195][195][174][166][182]"
  21. 28 printtab(12)"[181][166][194]          [194][166][182]"
  22. 29 printtab(12)"[181][166][194]          [194][166][182]"
  23. 30 printtab(12)"[181][166][194]          [194][166][182]"
  24. 31 printtab(12)"[181][166][194]  gleich  [156][194][166][182]"
  25. 32 printtab(12)"[181][166][194]  geht's  [156][194][166][182]"
  26. 33 printtab(12)"[181][166][194][160] -hier-[160] [156][194][166][182]"
  27. 34 printtab(12)"[181][166][194]  weiter  [156][194][166][182]"
  28. 35 printtab(12)"[181][166][194]          [194][166][182]"
  29. 36 printtab(12)"[181][166][194]          [194][166][182]"
  30. 37 printtab(12)"[181][166][194]          [194][166][182]"
  31. 38 printtab(12)"[181][166][173][195][195][195][195][195][195][195][195][195][195][189][166][182]"
  32. 39 printtab(12)"[181][166][166][166][166][166][166][166][166][166][166][166][166][166][166][182]"
  33. 40 printtab(12)"[174][185][185][185][185][185][185][185][185][185][185][185][185][185][185][176]":nexti
  34. 41 ifi=>5then load">di*",8,1:run
  35.